%range(+Integer_Start,+Integer_End,L).

range(S,E,L):-
    range(S,E,L,[]).
    
range(N,N,L,Acc):-!,
    append(Acc,[N],L).
range(S,E,L,Acc):-    
    S1 is S + 1,
    append(Acc,[S],Acc1),
    range(S1,E,L,Acc1).